home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / amigaos4_only / ifxlite / imagefx3 / rexx / autofx / eot_splash_adjuster.ifx < prev    next >
Text File  |  2004-08-03  |  2KB  |  85 lines
  1. /*
  2.  * EOT_Splash_Adjuster.ifx
  3.  * Written by Gerald Bonnstetter
  4.  *
  5.  * EOT Splash Sequence Effect.
  6.  *
  7.  * Inputs:
  8.  *    Word(Arg(1),1) = Frame number (1 - N)
  9.  *    Word(Arg(1),2) = Main filename ("-" if not specified)
  10.  *    Word(Arg(1),3) = Swap filename ("-" if not specified)
  11.  *    Word(Arg(1),4) = Sequence number (?)
  12.  *    Word(Arg(1),5) = Total number of frames (N)
  13.  *
  14.  * Returns:
  15.  *    0 if successful, non-zero on failure
  16.  *
  17.  */
  18.  
  19. OPTIONS RESULTS
  20.  
  21. framenum = Word(Arg(1),1)
  22. mainname = Word(Arg(1),2)
  23. swapname = Word(Arg(1),3)
  24. seqnum   = Word(Arg(1),4)
  25. framemax = Word(Arg(1),5)
  26.  
  27. base  = 'Autofx_Splash_'
  28.  
  29. lpath     = GETCLIP(base||'Path')
  30. lfile     = GETCLIP(base||'File')
  31. incr      = GETCLIP(base||'Incr')
  32. step      = GETCLIP(base||'StepSize') 
  33. seed      = GETCLIP(base||'Seed')
  34. lightsrc  = GETCLIP(base||'LightSource')
  35. highlt    = GETCLIP(base||'Highlight')
  36. density   = GETCLIP(base||'Density')
  37. height    = GETCLIP(base||'Height')
  38. edge      = GETCLIP(base||'Edge')
  39. smooth    = GETCLIP(base||'Smoothing')
  40. antial    = GETCLIP(base||'AntiAl')
  41.  
  42. increment = GETCLIP(base||'Increment')
  43.  
  44.  
  45. IF datatype(framemax, 'N') = 1 THEN DO
  46.       increment = incr + framenum * step
  47.       END
  48.    ELSE DO
  49.       increment = increment + step
  50.       END
  51.  
  52. temp =  'Increment '|| increment || ' Seed ' || seed
  53.  
  54. temp = temp || ' Light_Source ' || lightsrc || ' Highlight ' || highlt
  55.  
  56. temp = temp || ' Density ' || density || ' Height ' || height
  57.  
  58. SELECT
  59.    WHEN edge = 0 THEN temp = temp || ' Wraparound '
  60.  
  61.    WHEN edge = 1 THEN temp = temp || ' Bounce '
  62.  
  63.    OTHERWISE  temp = temp || ' Bounce '
  64.    END
  65.  
  66. temp = temp || ' Smoothing ' || smooth
  67.  
  68. SELECT
  69.    WHEN antial = 0 THEN temp = temp || ' Antialiase_Off '
  70.  
  71.    WHEN antial = 1 THEN temp = temp || ' Antialiase_On '
  72.  
  73.    OTHERWISE  temp = temp || ' Antialiase_Off '
  74.    END
  75.  
  76. temp = temp || ' File ' || lpath || '/' || lfile
  77.  
  78. Hook Splash temp
  79.  
  80. CALL SETCLIP(base||'Increment', increment)
  81.  
  82. rc = 0
  83.  
  84. EXIT rc
  85.